home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / role / CTW10d.lha / CTW / scripts / General / pizza.script < prev    next >
Text File  |  1997-09-02  |  476b  |  39 lines
  1. :LOOP|
  2. GOTO LOOP|
  3.  
  4. :PIZZAWAIT|
  5. PAUSE 120|
  6.  
  7. :GETPIZZA|
  8. TOGGLETOUCH|
  9. SET @CANGET 0|
  10. MOVETO 158 5|
  11. :WL1|
  12. WALKTO 162 204 5 @RES|
  13. IF @RES = 0 WL1|
  14. :WL2|
  15. WALKTO 455 205 5 @RES|
  16. IF @RES = 0 WL2|
  17. [ "Pizza For %n!"|
  18. [ "Come And Get It!"|
  19. SET @CANGET -1|
  20. TOGGLETOUCH|
  21. GOTO LOOP|
  22.  
  23. :TOUCH|
  24. [ "Here you go, sir!"|
  25. ADDITEM Pizza|
  26. TOGGLETOUCH|
  27. SET @CANGET 0|
  28. :WL3|
  29. WALKTO 162 204 5 @RES|
  30. IF @RES = 0 WL3|
  31. :WL4|
  32. WALKTO 158 5 5 @RES|
  33. IF @RES = 0 WL4|
  34. MOVETO -49 -49|
  35. TOGGLETOUCH|
  36. GOTO LOOP|
  37.  
  38.  
  39.